home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 October / 64er_Magazin_87-10_1987_Markt__Technik_de.d64 / punkt setzen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  543b  |  19 lines
  1. 50395 rem **********************
  2. 50396 rem * modul punkt setzen *
  3. 50397 rem **********************
  4. 50398 rem x= x-koordinate des punktes
  5. 50399 rem y= y-koordinate des punktes
  6. 50400 gr=320*int(y/8)+(y and 7)+(8*int(x/8))+8192:rem adresse
  7. 50410 ms=2^(7-(x and 7)):rem bitmaske
  8. 50420 poke gr,peek(gr)or ms
  9. 50430 return
  10. 50495 rem ************************
  11. 50496 rem * modul punkt loeschen *
  12. 50497 rem ************************
  13. 50498 rem x= x-koordinate des punktes
  14. 50499 rem y= y-koordinate des punktes
  15. 50500 gr=320*int(y/8)+(y and 7)+(8*int(x/8))+8192:rem adresse
  16. 50510 ms=2^(7-(x and 7)):rem bitmaske
  17. 50520 poke gr,peek(gr)and(255-ms)
  18. 50530 return
  19.